Public Class Test

    Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Latitud1 As String = "38.94973065425483"
        Dim longitud1 As String = "68.05624723434448"

        Dim Latitud2 As String = "38.94864595296052"
        Dim longitud2 As String = "68.0562686920166"


        Dim Distancia As Double = DistanceBetweenTwoPoints(Latitud1, longitud1, Latitud2, longitud2)

        TextBox1.Text = Distancia.ToString

    End Sub
End Class